home *** CD-ROM | disk | FTP | other *** search
/ SunSoft Catalyst CDWARE 1996 May to August / Catalyst CDWARE 1996 May to August.iso / .products / .bin / httpd / Solaris_2 / checkmail.pl < prev    next >
Perl Script  |  1996-02-29  |  2KB  |  47 lines
  1. #!./perl -w
  2.  
  3. # ------------------------------------------------------------
  4.  
  5. # checkmail.pl, by Jean-Pierre Girard (jpg@corrado.sun.com)
  6. # This allows the user to edit or create the _info file
  7. # necessary for the CDware.
  8.  
  9. # ------------------------------------------------------------
  10.  
  11. # Bugs and other fixes
  12.  
  13. # ------------------------------------------------------------
  14.  
  15. ##############################################################################
  16. # Main block
  17. ##############################################################################
  18. $MAILFILENAME = $ENV{"HOME"} . "/.mailcap";
  19. $TMPMAILFILENAME = "/tmp/.mailcap";
  20. unless (-e $MAILFILENAME) {
  21.     die "ERROR: $MAILFILENAME doesn't exist\n";
  22. }
  23.  
  24. if (-s $MAILFILENAME && open (MAILFILE, $MAILFILENAME)) {
  25.     if (open (TMPMAILFILE, "> $TMPMAILFILENAME")) {
  26.         while (<MAILFILE>) {
  27.             $Line = $_;
  28.             if ($Line ne "application/x-spam-sh; /bin/sh %s \n") {
  29.                 print TMPMAILFILE $Line;
  30.                 #print "jpg\n";
  31.             }
  32.         }
  33.         close(MAILFILE);
  34.         close(TMPMAILFILE);
  35.         #unlink($MAILFILENAME) || die "Can't delete $MAILFILENAME";
  36.         #print "rename($TMPMAILFILENAME, $MAILFILENAME) || die \"Can't rename $TMPMAILFILENAME to $MAILFILENAME\"";
  37.         rename("/tmp/.mailcap", "/home/jpg/.mailcap") || die "Can't rename $TMPMAILFILENAME to $MAILFILENAME";
  38.         #rename($TMPMAILFILENAME, $MAILFILENAME) || die "Can't rename $TMPMAILFILENAME to $MAILFILENAME";
  39.     }
  40. } else {
  41.     print "ERROR: couldn't open $MAILFILENAME\n";
  42. }
  43.  
  44. ################################################################################
  45. # Define FORMATS (no more code)
  46. ################################################################################
  47.